/* zip.c -- IO on .zip files using zlib
   Version 1.01e, February 12th, 2005

   27 Dec 2004 Rolf Kalbermatter
   Modification to zipOpen2 to support globalComment retrieval.

   Copyright (C) 1998-2005 Gilles Vollant

   Read zip.h for more info
*/


#include "..\zlib.h"
#include "zip.h"

#ifndef _SWILIB
#include "..\..\..\inc\swilib.h"
#define _SWILIB
#endif

extern int errno;

#ifndef local
#  define local static
#endif
/* compile with -Dlocal if your debugger can't find static symbols */

#ifndef VERSIONMADEBY
# define VERSIONMADEBY   (0x0) /* platform depedent */
#endif

#ifndef Z_BUFSIZE
#define Z_BUFSIZE (16384)
#endif

#ifndef Z_MAXFILENAMEINZIP
#define Z_MAXFILENAMEINZIP (256)
#endif

#ifndef ALLOC
# define ALLOC(size) (malloc(size))
#endif
#ifndef TRYFREE
# define TRYFREE(p) {if (p) mfree(p);}
#endif

/* I've found an old Unix (a SunOS 4.1.3_U1) without all SEEK_* defined.... */

#ifndef SEEK_CUR
#define SEEK_CUR	1
#endif

#ifndef SEEK_END
#define SEEK_END	2
#endif

#ifndef SEEK_SET
#define SEEK_SET	0
#endif

#ifndef DEF_MEM_LEVEL
#if MAX_MEM_LEVEL >= 8
#  define DEF_MEM_LEVEL 8
#else
#  define DEF_MEM_LEVEL  MAX_MEM_LEVEL
#endif
#endif
const char zip_copyright[] =
   " zip 1.01 Copyright 1998-2004 Gilles Vollant - http://www.winimage.com/zLibDll";


#define SIZEDATA_INDATABLOCK (4096-(4*4))

#define LOCALHEADERMAGIC	(0x04034b50)
#define CENTRALHEADERMAGIC  (0x02014b50)
#define ENDHEADERMAGIC	  (0x06054b50)

#define FLAG_LOCALHEADER_OFFSET (0x06)
#define CRC_LOCALHEADER_OFFSET  (0x0e)

#define SIZECENTRALHEADER (0x2e) /* 46 */

typedef struct linkedlist_datablock_internal_s
{
  struct linkedlist_datablock_internal_s* next_datablock;
  uLong  avail_in_this_block;
  uLong  filled_in_this_block;
  uLong  unused; /* for future use and alignement */
  unsigned char data[SIZEDATA_INDATABLOCK];
} linkedlist_datablock_internal;

typedef struct linkedlist_data_s
{
	linkedlist_datablock_internal* first_block;
	linkedlist_datablock_internal* last_block;
} linkedlist_data;


typedef struct
{
	z_stream stream;			/* zLib stream structure for inflate */
	int  stream_initialised;	/* 1 is stream is initialised */
	uInt pos_in_buffered_data;  /* last written byte in buffered_data */

	uLong pos_local_header;	 /* offset of the local header of the file
									 currenty writing */
	char* central_header;	   /* central header data for the current file */
	uLong size_centralheader;   /* size of the central header for cur file */
	uLong flag;				 /* flag of the file currently writing */

	int  method;				/* compression method of file currenty wr.*/
	int  raw;				   /* 1 for directly writing raw data */
	Byte buffered_data[Z_BUFSIZE];/* buffer contain compressed data to be writ*/
	uLong dosDate;
	uLong crc32;
	int  encrypt;
#ifndef NOCRYPT
	unsigned long keys[3];	 /* keys defining the pseudo-random sequence */
	const unsigned long* pcrc_32_tab;
	int crypt_header_size;
#endif
} curfile_info;

typedef struct
{
	zlib_filefunc_def z_filefunc;
	voidpf filestream;		/* io structore of the zipfile */
	linkedlist_data central_dir;/* datablock with central dir in construction*/
	int  in_opened_file_inzip;  /* 1 if a file in the zip is currently writ.*/
	curfile_info ci;			/* info on the file curretly writing */

	uLong begin_pos;			/* position of the beginning of the zipfile */
	uLong add_position_when_writting_offset;
	uLong number_entry;
#ifndef NO_ADDFILEINEXISTINGZIP
	char *globalcomment;
#endif
} zip_internal;



#ifndef NOCRYPT
#define INCLUDECRYPTINGCODE_IFCRYPTALLOWED
#include "crypt.h"
#endif

local linkedlist_datablock_internal* allocate_new_datablock()
{
	linkedlist_datablock_internal* ldi;
	ldi = (linkedlist_datablock_internal*)
				 ALLOC(sizeof(linkedlist_datablock_internal));
	if (ldi!=NULL)
	{
		ldi->next_datablock = NULL ;
		ldi->filled_in_this_block = 0 ;
		ldi->avail_in_this_block = SIZEDATA_INDATABLOCK ;
	}
	return ldi;
}

local void free_datablock(linkedlist_datablock_internal* ldi)
{
	while (ldi!=NULL)
	{
		linkedlist_datablock_internal* ldinext = ldi->next_datablock;
		TRYFREE(ldi);
		ldi = ldinext;
	}
}

local void init_linkedlist(linkedlist_data* ll)
{
	ll->first_block = ll->last_block = NULL;
}

local int add_data_in_datablock(
	linkedlist_data* ll,
	const void* buf,
	uLong len)
{
	linkedlist_datablock_internal* ldi;
	const unsigned char* from_copy;

	if (ll==NULL)
		return ZIP_INTERNALERROR;

	if (ll->last_block == NULL)
	{
		ll->first_block = ll->last_block = allocate_new_datablock();
		if (ll->first_block == NULL)
			return ZIP_INTERNALERROR;
	}

	ldi = ll->last_block;
	from_copy = (unsigned char*)buf;

	while (len>0)
	{
		uInt copy_this;
		uInt i;
		unsigned char* to_copy;

		if (ldi->avail_in_this_block==0)
		{
			ldi->next_datablock = allocate_new_datablock();
			if (ldi->next_datablock == NULL)
				return ZIP_INTERNALERROR;
			ldi = ldi->next_datablock ;
			ll->last_block = ldi;
		}

		if (ldi->avail_in_this_block < len)
			copy_this = (uInt)ldi->avail_in_this_block;
		else
			copy_this = (uInt)len;

		to_copy = &(ldi->data[ldi->filled_in_this_block]);

		for (i=0;i<copy_this;i++)
			*(to_copy+i)=*(from_copy+i);

		ldi->filled_in_this_block += copy_this;
		ldi->avail_in_this_block -= copy_this;
		from_copy += copy_this ;
		len -= copy_this;
	}
	return ZIP_OK;
}



/****************************************************************************/

#ifndef NO_ADDFILEINEXISTINGZIP
/* ===========================================================================
   Inputs a long in LSB order to the given file
   nbByte == 1, 2 or 4 (byte, short or long)
*/

local int ziplocal_putValue (const zlib_filefunc_def* pzlib_filefunc_def,
								voidpf filestream, uLong x, int nbByte);
local int ziplocal_putValue (
	const zlib_filefunc_def* pzlib_filefunc_def,
	voidpf filestream,
	uLong x,
	int nbByte)
{
	unsigned char buf[4];
	int n;
	for (n = 0; n < nbByte; n++)
	{
		buf[n] = (unsigned char)(x & 0xff);
		x >>= 8;
	}
	if (x != 0)
	  {	 /* data overflow - hack for ZIP64 (X Roche) */
	  for (n = 0; n < nbByte; n++)
		{
		  buf[n] = 0xff;
		}
	  }

	if (ZWRITE(*pzlib_filefunc_def,filestream,buf,nbByte)!=(uLong)nbByte)
		return ZIP_ERRNO;
	else
		return ZIP_OK;
}

local void ziplocal_putValue_inmemory (void* dest, uLong x, int nbByte);
local void ziplocal_putValue_inmemory (
	void* dest,
	uLong x,
	int nbByte)
{
	unsigned char* buf=(unsigned char*)dest;
	int n;
	for (n = 0; n < nbByte; n++) {
		buf[n] = (unsigned char)(x & 0xff);
		x >>= 8;
	}

	if (x != 0)
	{	 /* data overflow - hack for ZIP64 */
	   for (n = 0; n < nbByte; n++)
	   {
		  buf[n] = 0xff;
	   }
	}
}

/****************************************************************************/


local uLong ziplocal_TmzDateToDosDate(
	const tm_zip* ptm,
	uLong dosDate)
{
	uLong year = (uLong)ptm->tm_year;
	if (year>1980)
		year-=1980;
	else if (year>80)
		year-=80;
	return
	  (uLong) (((ptm->tm_mday) + (32 * (ptm->tm_mon+1)) + (512 * year)) << 16) |
		((ptm->tm_sec/2) + (32* ptm->tm_min) + (2048 * (uLong)ptm->tm_hour));
}


/****************************************************************************/

local int ziplocal_getByte (
	const zlib_filefunc_def* pzlib_filefunc_def,
	voidpf filestream,
	int *pi);

local int ziplocal_getByte(
	const zlib_filefunc_def* pzlib_filefunc_def,
	voidpf filestream,
	int *pi)
{
	unsigned char c;
	int err = (int)ZREAD(*pzlib_filefunc_def,filestream,&c,1);
	if (err==1)
	{
		*pi = (int)c;
		return ZIP_OK;
	}
	else
	{
		if (ZERROR(*pzlib_filefunc_def,filestream))
			return ZIP_ERRNO;
		else
			return ZIP_EOF;
	}
}


/* ===========================================================================
   Reads a long in LSB order from the given gz_stream. Sets
*/
local int ziplocal_getShort (
	const zlib_filefunc_def* pzlib_filefunc_def,
	voidpf filestream,
	uLong *pX);

local int ziplocal_getShort (
	const zlib_filefunc_def* pzlib_filefunc_def,
	voidpf filestream,
	uLong *pX)
{
	uLong x ;
	int i;
	int err;

	err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
	x = (uLong)i;

	if (err==ZIP_OK)
		err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
	x += ((uLong)i)<<8;

	if (err==ZIP_OK)
		*pX = x;
	else
		*pX = 0;
	return err;
}

local int ziplocal_getLong (
	const zlib_filefunc_def* pzlib_filefunc_def,
	voidpf filestream,
	uLong *pX);

local int ziplocal_getLong (
	const zlib_filefunc_def* pzlib_filefunc_def,
	voidpf filestream,
	uLong *pX)
{
	uLong x ;
	int i;
	int err;

	err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
	x = (uLong)i;

	if (err==ZIP_OK)
		err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
	x += ((uLong)i)<<8;

	if (err==ZIP_OK)
		err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
	x += ((uLong)i)<<16;

	if (err==ZIP_OK)
		err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
	x += ((uLong)i)<<24;

	if (err==ZIP_OK)
		*pX = x;
	else
		*pX = 0;
	return err;
}

#ifndef BUFREADCOMMENT
#define BUFREADCOMMENT (0x400)
#endif
/*
  Locate the Central directory of a zipfile (at the end, just before
	the global comment)
*/
local uLong ziplocal_SearchCentralDir (
	const zlib_filefunc_def* pzlib_filefunc_def,
	voidpf filestream);

local uLong ziplocal_SearchCentralDir(
	const zlib_filefunc_def* pzlib_filefunc_def,
	voidpf filestream)
{
	unsigned char* buf;
	uLong uSizeFile;
	uLong uBackRead;
	uLong uMaxBack=0xffff; /* maximum size of global comment */
	uLong uPosFound=0;

	if (ZSEEK(*pzlib_filefunc_def,filestream,0,ZLIB_FILEFUNC_SEEK_END) != 0)
		return 0;


	uSizeFile = ZTELL(*pzlib_filefunc_def,filestream);

	if (uMaxBack>uSizeFile)
		uMaxBack = uSizeFile;

	buf = (unsigned char*)ALLOC(BUFREADCOMMENT+4);
	if (buf==NULL)
		return 0;

	uBackRead = 4;
	while (uBackRead<uMaxBack)
	{
		uLong uReadSize,uReadPos ;
		int i;
		if (uBackRead+BUFREADCOMMENT>uMaxBack)
			uBackRead = uMaxBack;
		else
			uBackRead+=BUFREADCOMMENT;
		uReadPos = uSizeFile-uBackRead ;

		uReadSize = ((BUFREADCOMMENT+4) < (uSizeFile-uReadPos)) ?
					 (BUFREADCOMMENT+4) : (uSizeFile-uReadPos);
		if (ZSEEK(*pzlib_filefunc_def,filestream,uReadPos,ZLIB_FILEFUNC_SEEK_SET)!=0)
			break;

		if (ZREAD(*pzlib_filefunc_def,filestream,buf,uReadSize)!=uReadSize)
			break;

		for (i=(int)uReadSize-3; (i--)>0;)
			if (((*(buf+i))==0x50) && ((*(buf+i+1))==0x4b) &&
				((*(buf+i+2))==0x05) && ((*(buf+i+3))==0x06))
			{
				uPosFound = uReadPos+i;
				break;
			}

		if (uPosFound!=0)
			break;
	}
	TRYFREE(buf);
	return uPosFound;
}
#endif /* !NO_ADDFILEINEXISTINGZIP*/

/************************************************************/
/*
void Tlog (char *string)
{
   char logt[128];
   sprintf(logt,"0:\\log.txt");
   int logfile=fopen(logt,A_ReadWrite+A_TXT+A_Append+A_Create,P_READ+P_WRITE,0);
   char *data=(char*)malloc(4096);
   sprintf(data,"<%s>\n",string);
   lseek(logfile, 0x0, S_END, 0, 0);
   fwrite(logfile,data,strlen(data),0);
   mfree(data);
   fclose(logfile,0);
}
*/
extern zipFile zipOpen2 (
	const char *pathname,
	int append,
	zipcharpc* globalcomment,
	zlib_filefunc_def* pzlib_filefunc_def)
{

	zip_internal ziinit;
	zip_internal* zi;
	int err=ZIP_OK;

	if (pzlib_filefunc_def==NULL)
		fill_fopen_filefunc(&ziinit.z_filefunc);
	else
		ziinit.z_filefunc = *pzlib_filefunc_def;

	ziinit.filestream = (*(ziinit.z_filefunc.zopen_file))
				 (ziinit.z_filefunc.opaque,
				  pathname,
				  (append == APPEND_STATUS_CREATE) ?
				  (ZLIB_FILEFUNC_MODE_READ | ZLIB_FILEFUNC_MODE_WRITE | ZLIB_FILEFUNC_MODE_CREATE) :
					(ZLIB_FILEFUNC_MODE_READ | ZLIB_FILEFUNC_MODE_WRITE | ZLIB_FILEFUNC_MODE_EXISTING));

	if (ziinit.filestream == NULL)
		return NULL;
	ziinit.begin_pos = ZTELL(ziinit.z_filefunc,ziinit.filestream);
	ziinit.in_opened_file_inzip = 0;
	ziinit.ci.stream_initialised = 0;
	ziinit.number_entry = 0;
	ziinit.add_position_when_writting_offset = 0;
	init_linkedlist(&(ziinit.central_dir));


	zi = (zip_internal*)ALLOC(sizeof(zip_internal));
	if (zi==NULL)
	{
		ZCLOSE(ziinit.z_filefunc,ziinit.filestream);
		return NULL;
	}

	/* now we add file in a zipfile */
#	ifndef NO_ADDFILEINEXISTINGZIP
	ziinit.globalcomment = NULL;
	if (append == APPEND_STATUS_ADDINZIP)
	{
		uLong byte_before_the_zipfile;/* byte before the zipfile, (>0 for sfx)*/

		uLong size_central_dir;	 /* size of the central directory  */
		uLong offset_central_dir;   /* offset of start of central directory */
		uLong central_pos,uL;

		uLong number_disk;		  /* number of the current dist, used for
									spaning ZIP, unsupported, always 0*/
		uLong number_disk_with_CD;  /* number the the disk with central dir, used
									for spaning ZIP, unsupported, always 0*/
		uLong number_entry;
		uLong number_entry_CD;	  /* total number of entries in
									the central dir
									(same than number_entry on nospan) */
		uLong size_comment;

		central_pos = ziplocal_SearchCentralDir(&ziinit.z_filefunc,ziinit.filestream);
		if (central_pos==0)
			err=ZIP_ERRNO;

		if (ZSEEK(ziinit.z_filefunc, ziinit.filestream,
										central_pos,ZLIB_FILEFUNC_SEEK_SET)!=0)
			err=ZIP_ERRNO;

		/* the signature, already checked */
		if (ziplocal_getLong(&ziinit.z_filefunc, ziinit.filestream,&uL)!=ZIP_OK)
			err=ZIP_ERRNO;

		/* number of this disk */
		if (ziplocal_getShort(&ziinit.z_filefunc, ziinit.filestream,&number_disk)!=ZIP_OK)
			err=ZIP_ERRNO;

		/* number of the disk with the start of the central directory */
		if (ziplocal_getShort(&ziinit.z_filefunc, ziinit.filestream,&number_disk_with_CD)!=ZIP_OK)
			err=ZIP_ERRNO;

		/* total number of entries in the central dir on this disk */
		if (ziplocal_getShort(&ziinit.z_filefunc, ziinit.filestream,&number_entry)!=ZIP_OK)
			err=ZIP_ERRNO;

		/* total number of entries in the central dir */
		if (ziplocal_getShort(&ziinit.z_filefunc, ziinit.filestream,&number_entry_CD)!=ZIP_OK)
			err=ZIP_ERRNO;

		if ((number_entry_CD!=number_entry) ||
			(number_disk_with_CD!=0) ||
			(number_disk!=0))
			err=ZIP_BADZIPFILE;

		/* size of the central directory */
		if (ziplocal_getLong(&ziinit.z_filefunc, ziinit.filestream,&size_central_dir)!=ZIP_OK)
			err=ZIP_ERRNO;

		/* offset of start of central directory with respect to the
			starting disk number */
		if (ziplocal_getLong(&ziinit.z_filefunc, ziinit.filestream,&offset_central_dir)!=ZIP_OK)
			err=ZIP_ERRNO;

		/* zipfile global comment length */
		if (ziplocal_getShort(&ziinit.z_filefunc, ziinit.filestream,&size_comment)!=ZIP_OK)
			err=ZIP_ERRNO;

		if ((central_pos<offset_central_dir+size_central_dir) &&
			(err==ZIP_OK))
			err=ZIP_BADZIPFILE;

		if (err!=ZIP_OK)
		{
			ZCLOSE(ziinit.z_filefunc, ziinit.filestream);
			return NULL;
		}

		if (size_comment>0)
		{
			ziinit.globalcomment = ALLOC(size_comment+1);
			if (ziinit.globalcomment)
			{
			   size_comment = ZREAD(ziinit.z_filefunc, ziinit.filestream,ziinit.globalcomment,size_comment);
			   ziinit.globalcomment[size_comment]=0;
			}
		}

		byte_before_the_zipfile = central_pos -
								(offset_central_dir+size_central_dir);
		ziinit.add_position_when_writting_offset = byte_before_the_zipfile;

		{
			uLong size_central_dir_to_read = size_central_dir;
			size_t buf_size = SIZEDATA_INDATABLOCK;
			void* buf_read = (void*)ALLOC(buf_size);
			if (ZSEEK(ziinit.z_filefunc, ziinit.filestream,
				  offset_central_dir + byte_before_the_zipfile,
				  ZLIB_FILEFUNC_SEEK_SET) != 0)
				  err=ZIP_ERRNO;

			while ((size_central_dir_to_read>0) && (err==ZIP_OK))
			{
				uLong read_this = SIZEDATA_INDATABLOCK;
				if (read_this > size_central_dir_to_read)
					read_this = size_central_dir_to_read;
				if (ZREAD(ziinit.z_filefunc, ziinit.filestream,buf_read,read_this) != read_this)
					err=ZIP_ERRNO;

				if (err==ZIP_OK)
					err = add_data_in_datablock(&ziinit.central_dir,buf_read,
												(uLong)read_this);
				size_central_dir_to_read-=read_this;
			}
			TRYFREE(buf_read);
		}
		ziinit.begin_pos = byte_before_the_zipfile;
		ziinit.number_entry = number_entry_CD;

		if (ZSEEK(ziinit.z_filefunc, ziinit.filestream,
				  offset_central_dir+byte_before_the_zipfile,ZLIB_FILEFUNC_SEEK_SET)!=0)
			err=ZIP_ERRNO;
	}

	if (globalcomment)
	{
	  *globalcomment = ziinit.globalcomment;
	}
#	endif /* !NO_ADDFILEINEXISTINGZIP*/

	if (err != ZIP_OK)
	{
#	ifndef NO_ADDFILEINEXISTINGZIP
		TRYFREE(ziinit.globalcomment);
#	endif /* !NO_ADDFILEINEXISTINGZIP*/
		TRYFREE(zi);
		return NULL;
	}
	else
	{
		*zi = ziinit;
		return (zipFile)zi;
	}
}

extern zipFile zipOpen (
	const char *pathname,
	int append)
{
	return zipOpen2(pathname,append,NULL,NULL);
}

extern int zipOpenNewFileInZip3 (
	zipFile file,
	const char* filename,
	const zip_fileinfo* zipfi,
	const void* extrafield_local,
	uInt size_extrafield_local,
	const void* extrafield_global,
	uInt size_extrafield_global,
	const char* comment,
	int method,
	int level,
	int raw,
	int windowBits,
	int memLevel,
	int strategy,
	const char* password,
	uLong crcForCrypting)
{
	zip_internal* zi;
	uInt size_filename;
	uInt size_comment;
	uInt i;
	int err = ZIP_OK;

#	ifdef NOCRYPT
	if (password != NULL)
		return ZIP_PARAMERROR;
#	endif

	if (file == NULL)
		return ZIP_PARAMERROR;
	if ((method!=0) && (method!=Z_DEFLATED))
		return ZIP_PARAMERROR;

	zi = (zip_internal*)file;

	if (zi->in_opened_file_inzip == 1)
	{
		err = zipCloseFileInZip (file);
		if (err != ZIP_OK)
			return err;
	}


	if (filename==NULL)
		filename="-";

	if (comment==NULL)
		size_comment = 0;
	else
		size_comment = (uInt)strlen(comment);

	size_filename = (uInt)strlen(filename);

	if (zipfi == NULL)
		zi->ci.dosDate = 0;
	else
	{
		if (zipfi->dosDate != 0)
			zi->ci.dosDate = zipfi->dosDate;
		else zi->ci.dosDate = ziplocal_TmzDateToDosDate(&zipfi->tmz_date,zipfi->dosDate);
	}

	zi->ci.flag = 0;
	if ((level==8) || (level==9))
	  zi->ci.flag |= 2;
	if ((level==2))
	  zi->ci.flag |= 4;
	if ((level==1))
	  zi->ci.flag |= 6;
	if (password != NULL)
	  zi->ci.flag |= 1;

	zi->ci.crc32 = 0;
	zi->ci.method = method;
	zi->ci.encrypt = 0;
	zi->ci.stream_initialised = 0;
	zi->ci.pos_in_buffered_data = 0;
	zi->ci.raw = raw;
	zi->ci.pos_local_header = ZTELL(zi->z_filefunc,zi->filestream) ;
	zi->ci.size_centralheader = SIZECENTRALHEADER + size_filename +
									  size_extrafield_global + size_comment;
	zi->ci.central_header = (char*)ALLOC((uInt)zi->ci.size_centralheader);

	ziplocal_putValue_inmemory(zi->ci.central_header,(uLong)CENTRALHEADERMAGIC,4);
	/* version info */
	ziplocal_putValue_inmemory(zi->ci.central_header+4,(uLong)VERSIONMADEBY,2);
	ziplocal_putValue_inmemory(zi->ci.central_header+6,(uLong)20,2);
	ziplocal_putValue_inmemory(zi->ci.central_header+8,(uLong)zi->ci.flag,2);
	ziplocal_putValue_inmemory(zi->ci.central_header+10,(uLong)zi->ci.method,2);
	ziplocal_putValue_inmemory(zi->ci.central_header+12,(uLong)zi->ci.dosDate,4);
	ziplocal_putValue_inmemory(zi->ci.central_header+16,(uLong)0,4); /*crc*/
	ziplocal_putValue_inmemory(zi->ci.central_header+20,(uLong)0,4); /*compr size*/
	ziplocal_putValue_inmemory(zi->ci.central_header+24,(uLong)0,4); /*uncompr size*/
	ziplocal_putValue_inmemory(zi->ci.central_header+28,(uLong)size_filename,2);
	ziplocal_putValue_inmemory(zi->ci.central_header+30,(uLong)size_extrafield_global,2);
	ziplocal_putValue_inmemory(zi->ci.central_header+32,(uLong)size_comment,2);
	ziplocal_putValue_inmemory(zi->ci.central_header+34,(uLong)0,2); /*disk nm start*/

	if (zipfi==NULL)
		ziplocal_putValue_inmemory(zi->ci.central_header+36,(uLong)0,2);
	else
		ziplocal_putValue_inmemory(zi->ci.central_header+36,(uLong)zipfi->internal_fa,2);

	if (zipfi==NULL)
		ziplocal_putValue_inmemory(zi->ci.central_header+38,(uLong)0,4);
	else
		ziplocal_putValue_inmemory(zi->ci.central_header+38,(uLong)zipfi->external_fa,4);

	ziplocal_putValue_inmemory(zi->ci.central_header+42,(uLong)zi->ci.pos_local_header- zi->add_position_when_writting_offset,4);

	for (i=0;i<size_filename;i++)
		*(zi->ci.central_header+SIZECENTRALHEADER+i) = *(filename+i);

	for (i=0;i<size_extrafield_global;i++)
		*(zi->ci.central_header+SIZECENTRALHEADER+size_filename+i) =
			  *(((const char*)extrafield_global)+i);

	for (i=0;i<size_comment;i++)
		*(zi->ci.central_header+SIZECENTRALHEADER+size_filename+
			  size_extrafield_global+i) = *(comment+i);
	if (zi->ci.central_header == NULL)
		return ZIP_INTERNALERROR;

	/* write the local header */
	err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)LOCALHEADERMAGIC,4);

	if (err==ZIP_OK)
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)20,2);/* version needed to extract */
	if (err==ZIP_OK)
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)zi->ci.flag,2);

	if (err==ZIP_OK)
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)zi->ci.method,2);

	if (err==ZIP_OK)
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)zi->ci.dosDate,4);

	if (err==ZIP_OK)
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)0,4); /* crc 32, unknown */
	if (err==ZIP_OK)
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)0,4); /* compressed size, unknown */
	if (err==ZIP_OK)
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)0,4); /* uncompressed size, unknown */

	if (err==ZIP_OK)
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)size_filename,2);

	if (err==ZIP_OK)
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)size_extrafield_local,2);

	if ((err==ZIP_OK) && (size_filename>0))
		if (ZWRITE(zi->z_filefunc,zi->filestream,filename,size_filename)!=size_filename)
				err = ZIP_ERRNO;

	if ((err==ZIP_OK) && (size_extrafield_local>0))
		if (ZWRITE(zi->z_filefunc,zi->filestream,extrafield_local,size_extrafield_local)
																		   !=size_extrafield_local)
				err = ZIP_ERRNO;

	zi->ci.stream.avail_in = (uInt)0;
        zi->ci.stream.avail_out = (uInt)Z_BUFSIZE;
        
	zi->ci.stream.next_out = zi->ci.buffered_data;
	zi->ci.stream.total_in = 0;
	zi->ci.stream.total_out = 0;

	if ((err==ZIP_OK) && (zi->ci.method == Z_DEFLATED) && (!zi->ci.raw))
	{
		zi->ci.stream.zalloc = (alloc_func)0;
		zi->ci.stream.zfree = (free_func)0;
		zi->ci.stream.opaque = (voidpf)0;

		if (windowBits>0)
			windowBits = -windowBits;

		err = deflateInit2(&zi->ci.stream, level,
			   Z_DEFLATED, windowBits, memLevel, strategy);

		if (err==Z_OK)
			zi->ci.stream_initialised = 1;
	}
#	ifndef NOCRYPT
	zi->ci.crypt_header_size = 0;
	if ((err==Z_OK) && (password != NULL))
	{
		unsigned char bufHead[RAND_HEAD_LEN];
		unsigned int sizeHead;
		zi->ci.encrypt = 1;
		zi->ci.pcrc_32_tab = get_crc_table();
		/*init_keys(password,zi->ci.keys,zi->ci.pcrc_32_tab);*/

		sizeHead=crypthead(password,bufHead,RAND_HEAD_LEN,zi->ci.keys,zi->ci.pcrc_32_tab,crcForCrypting);
		zi->ci.crypt_header_size = sizeHead;

		if (ZWRITE(zi->z_filefunc,zi->filestream,bufHead,sizeHead) != sizeHead)
				err = ZIP_ERRNO;
	}
#	endif

	if (err==Z_OK)
		zi->in_opened_file_inzip = 1;
	return err;
}

extern int zipOpenNewFileInZip2(
	zipFile file,
	const char* filename,
	const zip_fileinfo* zipfi,
	const void* extrafield_local,
	uInt size_extrafield_local,
	const void* extrafield_global,
	uInt size_extrafield_global,
	const char* comment,
	int method,
	int level,
	int raw)
{
	return zipOpenNewFileInZip3 (file, filename, zipfi,
								 extrafield_local, size_extrafield_local,
								 extrafield_global, size_extrafield_global,
								 comment, method, level, raw,
								 -MAX_WBITS, DEF_MEM_LEVEL, Z_DEFAULT_STRATEGY,
								 NULL, 0);
}

extern int zipOpenNewFileInZip (
	zipFile file,
	const char* filename,
	const zip_fileinfo* zipfi,
	const void* extrafield_local,
	uInt size_extrafield_local,
	const void* extrafield_global,
	uInt size_extrafield_global,
	const char* comment,
	int method,
	int level)
{
	return zipOpenNewFileInZip2 (file, filename, zipfi,
								 extrafield_local, size_extrafield_local,
								 extrafield_global, size_extrafield_global,
								 comment, method, level, 0);
}

local int zipFlushWriteBuffer(zip_internal* zi)
{
	int err=ZIP_OK;

	if (zi->ci.encrypt != 0)
	{
#ifndef NOCRYPT
		uInt i;
		int t;
		for (i=0;i<zi->ci.pos_in_buffered_data;i++)
			zi->ci.buffered_data[i] = zencode(zi->ci.keys, zi->ci.pcrc_32_tab,
									   zi->ci.buffered_data[i],t);
#endif
	}
	if (ZWRITE(zi->z_filefunc,zi->filestream,zi->ci.buffered_data,zi->ci.pos_in_buffered_data)
																	!=zi->ci.pos_in_buffered_data)
	  err = ZIP_ERRNO;
	zi->ci.pos_in_buffered_data = 0;
	return err;
}

extern int zipWriteInFileInZip (
	zipFile file,
	const void* buf,
	unsigned len)
{
	zip_internal* zi;
	int err=ZIP_OK;

	if (file == NULL)
		return ZIP_PARAMERROR;
	zi = (zip_internal*)file;

	if (zi->in_opened_file_inzip == 0)
		return ZIP_PARAMERROR;

	zi->ci.stream.next_in = (void*)buf;
	zi->ci.stream.avail_in = len;
	zi->ci.crc32 = crc32(zi->ci.crc32,buf,len);

	while ((err==ZIP_OK) && (zi->ci.stream.avail_in>0))
	{
		if (zi->ci.stream.avail_out == 0)
		{
			if (zipFlushWriteBuffer(zi) == ZIP_ERRNO)
				err = ZIP_ERRNO;
			zi->ci.stream.avail_out = (uInt)Z_BUFSIZE;
			zi->ci.stream.next_out = zi->ci.buffered_data;
		}


		if(err != ZIP_OK)
			break;

		if ((zi->ci.method == Z_DEFLATED) && (!zi->ci.raw))
		{
			uLong uTotalOutBefore = zi->ci.stream.total_out;
			err=deflate(&zi->ci.stream,  Z_NO_FLUSH);
			zi->ci.pos_in_buffered_data += (uInt)(zi->ci.stream.total_out - uTotalOutBefore) ;

		}
		else
		{
			uInt copy_this,i;
			if (zi->ci.stream.avail_in < zi->ci.stream.avail_out)
				copy_this = zi->ci.stream.avail_in;
			else
				copy_this = zi->ci.stream.avail_out;
			for (i=0;i<copy_this;i++)
				*(((char*)zi->ci.stream.next_out)+i) =
					*(((const char*)zi->ci.stream.next_in)+i);
			{
				zi->ci.stream.avail_in -= copy_this;
				zi->ci.stream.avail_out-= copy_this;
				zi->ci.stream.next_in+= copy_this;
				zi->ci.stream.next_out+= copy_this;
				zi->ci.stream.total_in+= copy_this;
				zi->ci.stream.total_out+= copy_this;
				zi->ci.pos_in_buffered_data += copy_this;
			}
		}
	}

	return err;
}

extern int zipCloseFileInZipRaw (
	zipFile file,
	uLong uncompressed_size,
	uLong crc32)
{
	zip_internal* zi;
	uLong compressed_size;
	int err=ZIP_OK;

	if (file == NULL)
		return ZIP_PARAMERROR;
	zi = (zip_internal*)file;

	if (zi->in_opened_file_inzip == 0)
		return ZIP_PARAMERROR;
	zi->ci.stream.avail_in = 0;

	if ((zi->ci.method == Z_DEFLATED) && (!zi->ci.raw))
		while (err==ZIP_OK)
	{
		uLong uTotalOutBefore;
		if (zi->ci.stream.avail_out == 0)
		{
			if (zipFlushWriteBuffer(zi) == ZIP_ERRNO)
				err = ZIP_ERRNO;
			zi->ci.stream.avail_out = (uInt)Z_BUFSIZE;
			zi->ci.stream.next_out = zi->ci.buffered_data;
		}
		uTotalOutBefore = zi->ci.stream.total_out;
		err=deflate(&zi->ci.stream,  Z_FINISH);
		zi->ci.pos_in_buffered_data += (uInt)(zi->ci.stream.total_out - uTotalOutBefore) ;
	}

	if (err==Z_STREAM_END)
		err=ZIP_OK; /* this is normal */

	if ((zi->ci.pos_in_buffered_data>0) && (err==ZIP_OK))
		if (zipFlushWriteBuffer(zi)==ZIP_ERRNO)
			err = ZIP_ERRNO;

	if ((zi->ci.method == Z_DEFLATED) && (!zi->ci.raw))
	{
		err=deflateEnd(&zi->ci.stream);
		zi->ci.stream_initialised = 0;
	}

	if (!zi->ci.raw)
	{
		crc32 = (uLong)zi->ci.crc32;
		uncompressed_size = (uLong)zi->ci.stream.total_in;
	}
	compressed_size = (uLong)zi->ci.stream.total_out;
#	ifndef NOCRYPT
	compressed_size += zi->ci.crypt_header_size;
#	endif

	ziplocal_putValue_inmemory(zi->ci.central_header+16,crc32,4); /*crc*/
	ziplocal_putValue_inmemory(zi->ci.central_header+20,
								compressed_size,4); /*compr size*/
	if (zi->ci.stream.data_type == Z_ASCII)
		ziplocal_putValue_inmemory(zi->ci.central_header+36,(uLong)Z_ASCII,2);
	ziplocal_putValue_inmemory(zi->ci.central_header+24,
								uncompressed_size,4); /*uncompr size*/

	if (err==ZIP_OK)
		err = add_data_in_datablock(&zi->central_dir,zi->ci.central_header,
									   (uLong)zi->ci.size_centralheader);
	mfree(zi->ci.central_header);

	if (err==ZIP_OK)
	{
		long cur_pos_inzip = ZTELL(zi->z_filefunc,zi->filestream);
		if (ZSEEK(zi->z_filefunc,zi->filestream,
				  zi->ci.pos_local_header + 14,ZLIB_FILEFUNC_SEEK_SET)!=0)
			err = ZIP_ERRNO;

		if (err==ZIP_OK)
			err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,crc32,4); /* crc 32, unknown */

		if (err==ZIP_OK) /* compressed size, unknown */
			err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,compressed_size,4);

		if (err==ZIP_OK) /* uncompressed size, unknown */
			err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,uncompressed_size,4);

		if (ZSEEK(zi->z_filefunc,zi->filestream,
				  cur_pos_inzip,ZLIB_FILEFUNC_SEEK_SET)!=0)
			err = ZIP_ERRNO;
	}

	zi->number_entry ++;
	zi->in_opened_file_inzip = 0;

	return err;
}

extern int zipCloseFileInZip (zipFile file)
{
	return zipCloseFileInZipRaw (file,0,0);
}

extern int zipClose (
	zipFile file,
	const char* global_comment)
{
	zip_internal* zi;
	int err = 0;
	uLong size_centraldir = 0;
	uLong centraldir_pos_inzip;
	uInt size_global_comment;
	if (file == NULL)
		return ZIP_PARAMERROR;
	zi = (zip_internal*)file;

	if (zi->in_opened_file_inzip == 1)
	{
		err = zipCloseFileInZip (file);
	}

#ifndef NO_ADDFILEINEXISTINGZIP
	if (global_comment==NULL)
		global_comment = zi->globalcomment;
#endif
	if (global_comment==NULL)
		size_global_comment = 0;
	else
		size_global_comment = (uInt)strlen(global_comment);

	centraldir_pos_inzip = ZTELL(zi->z_filefunc,zi->filestream);
	if (err==ZIP_OK)
	{
		linkedlist_datablock_internal* ldi = zi->central_dir.first_block ;
		while (ldi!=NULL)
		{
			if ((err==ZIP_OK) && (ldi->filled_in_this_block>0))
				if (ZWRITE(zi->z_filefunc,zi->filestream,
						   ldi->data,ldi->filled_in_this_block)
							  !=ldi->filled_in_this_block )
					err = ZIP_ERRNO;

			size_centraldir += ldi->filled_in_this_block;
			ldi = ldi->next_datablock;
		}
	}
	free_datablock(zi->central_dir.first_block);

	if (err==ZIP_OK) /* Magic End */
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)ENDHEADERMAGIC,4);

	if (err==ZIP_OK) /* number of this disk */
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)0,2);

	if (err==ZIP_OK) /* number of the disk with the start of the central directory */
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)0,2);

	if (err==ZIP_OK) /* total number of entries in the central dir on this disk */
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)zi->number_entry,2);

	if (err==ZIP_OK) /* total number of entries in the central dir */
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)zi->number_entry,2);

	if (err==ZIP_OK) /* size of the central directory */
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)size_centraldir,4);

	if (err==ZIP_OK) /* offset of start of central directory with respect to the
							starting disk number */
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,
								(uLong)(centraldir_pos_inzip - zi->add_position_when_writting_offset),4);

	if (err==ZIP_OK) /* zipfile comment length */
		err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)size_global_comment,2);

	if ((err==ZIP_OK) && (size_global_comment>0))
		if (ZWRITE(zi->z_filefunc,zi->filestream,
				   global_comment,size_global_comment) != size_global_comment)
				err = ZIP_ERRNO;

	if (ZCLOSE(zi->z_filefunc,zi->filestream) != 0)
		if (err == ZIP_OK)
			err = ZIP_ERRNO;

#ifndef NO_ADDFILEINEXISTINGZIP
	TRYFREE(zi->globalcomment);
#endif
	TRYFREE(zi);

	return err;
}
